home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / QLST@2.QM < prev    next >
Text File  |  1992-05-27  |  3KB  |  51 lines
  1. *                               qlst@2.qm
  2. *               Macro To Load a File List of Files In Ring
  3. *                                 5/18/92
  4.  
  5. * 
  6. * -----------------------------------------------------------------------
  7. * @(2)  Load File List In Ring,
  8. *       Read First File In Filelist Macro If It Exists,
  9. *       User Selects File To Load From ListFiles Prompt
  10. * ----------------------------------------------------------------------
  11. *       See QLSTnn.QM for this macro's description.
  12.  
  13.  
  14. @2      macrobegin
  15.         setscreenoff                    * Turn off screen, less flicker    *|
  16.         endfile markline begfile        * Mark file list                   *|
  17. * ---------------------- Copy File List To Nul ----------------------*     *|b
  18.         editfile "Nul" return           * Load Nul for faster loading      *|
  19.         copyblock unmarkblock           * Copy file list to Nul            *|
  20.         endfile                         * Load last file first
  21. * ---------------------- Load File List In Ring ----------------------*
  22.     LOAD:
  23.         setscreenon setscreenoff        * Turn screen on/off to see loading |a
  24.         markline                        * Mark file name at cursor
  25.         copy                            * Copy file name to scrap
  26.         editfile currentfilename " "    * Load current file plus
  27.         paste return                    * last marked on list into ring
  28.         cursorup                        * Move up to next file in list
  29.     jtrue LOAD                          * Continue loading until top of list
  30.         quit                            * Quit formatted Nul file list     *|b
  31. * ------------------- Load First File in Window 2 -------------------*
  32.         nextfile                        * Load first file in list
  33. * -------------- Read Macros of First File If It Exists --------------*
  34.         macroread                       * Read first file's macros if exist
  35.             currentfilename             * Insert currentfilename
  36.             backspace backspace         * Remove 2 letter extension
  37.             "mac" return                * Replace with "mac" extension
  38.         escape escape                   * Removes error prompt if first    *|a
  39.                                         * file does not have a macro file  *|a
  40.         setscreenon                     * Turn on to see ListFiles' prompt *|a
  41. * ------------------- Select Another File To Load -------------------*
  42.         listfiles                       * Select file to load from list    *|a
  43. *
  44. * 31 bytes Tue  07-31-1990  18:30:10
  45. * 31 bytes Thu  05-09-1991  16:25:46
  46. * 29 bytes Fri  11-22-1991  01:01:51 (TH @0, mod to KW @1, from QLST14.QM)
  47. * 35 bytes Tue  05-05-1992  17:49:37 (TH @2, added v.2.15 and ListFiles *|a)
  48. * 50 bytes Thu  05-07-1992  09:56:47 (TH @2, added Nul *|b)
  49.  
  50.  
  51.